﻿Imports Mysoft.Map.Data
Imports Mysoft.Map.Application.Security

Partial Public Class Djgl
    Inherits Mysoft.Map.Application.Security.AppPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '一级模块权限校验
        VerifyApplication.VerifyLicenseFunction("01010109")

        '判断权限
        If Mysoft.Map.Application.Security.User.CheckUserRight(Session("UserGUID"), "01010109", "00") = False Then
            Throw New Exception("无功能权限")
        End If

        '写日志
        Logger.WriteLog("01010109")

        Dim MyBizMng As New Mysoft.PubProject.Business.BizParamMNG
        Dim strEnableTfSh As String = MyBizMng.GetBizParamConfig("s_EnableTfAudit")         '是否启用退房审核

        If strEnableTfSh <> "1" Then
            spTfsh.Attributes("style") = "display:none"
        End If

        Dim strEnableMjBgSh As String = MyBizMng.GetBizParamConfig("s_EnableMjbgSh")       '是否启用面积变更审核
        If strEnableMjBgSh <> "1" Then
            spMgbgSh.Attributes("style") = "display:none"
        End If


    End Sub

End Class